home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / glisp.zoo / FIB1.GL < prev    next >
Lisp/Scheme  |  1990-08-04  |  133b  |  7 lines
  1. "fib - plus undefined"
  2. (de fib1 (n)
  3.   (if (< n 2) 1 (plus (fib1 (- n 1)) (fib1 (- n 2)))))
  4. (setq plus +)
  5. "(fib1 22)"
  6. (fib1 22)
  7.